!*************************************************************************
	!> File Name: f.f90
	!> Author: 青羽100P
	!> Mail: bugatti100peagle@gmail.com
	!> Created Time: 2018年01月13日 星期六 23时00分41秒
!********10********20*********30********40********50********60********70**
      function f(x1,x2)result(y1)
          real                ::x1,x2,y1
          y1=-x2-x1*x2**2
          
      end function

